home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util1 / pf2.lha / patchfor020.asm < prev    next >
Assembly Source File  |  1995-09-12  |  41KB  |  2,135 lines
  1.         section    multiselect,code
  2.  
  3.         include    'includes:misc/os3_gst.i'
  4.  
  5. *-------------- Open dos library..
  6.  
  7.         move.l    4.w,a6
  8.         lea    DOSName(pc),a1
  9.         jsr    -408(a6)
  10.         move.l    d0,_DOSBase
  11.         beq.w    NoLib
  12.  
  13.         lea    About.txt,a0
  14.         bsr.w    putstr
  15.  
  16. *-------------- Open reqtools library..
  17.  
  18.         lea    ReqName(pc),a1
  19.         move.l    #REQTOOLSVERSION,d0
  20.         jsr    -552(a6)
  21.         move.l    d0,_RTBase
  22.         beq.w    closedos
  23.         move.l    d0,a6
  24.  
  25. ******************************************************************************
  26. *-------------- Allocate a Reqtools File Requester
  27.  
  28.         move.l    #RT_FILEREQ,d0
  29.         suba.l    a0,a0
  30.         jsr    _LVOrtAllocRequestA(a6)
  31.         move.l    d0,filereq
  32.         beq.w    ok17
  33.  
  34. *-------------- set default dir..
  35.  
  36.         lea    defdir_tags(pc),a0
  37.         move.l    d0,a1
  38.         jsr    _LVOrtChangeReqAttrA(a6)
  39.  
  40. *-------------- multiselect some filenames...
  41.  
  42.         move.l    filereq(pc),a1
  43.         lea    filename,a2
  44.         lea    Text66(pc),a3
  45.         lea    Tags9(pc),a0
  46.         jsr    _LVOrtFileRequestA(a6)
  47.         move.l    d0,flist
  48.         beq.w    ok16
  49.  
  50. ******************************************************************************
  51. *-------------- allocate a volume requester..
  52.  
  53.         move.l    #RT_FILEREQ,d0
  54.         sub.l    a0,a0
  55.         jsr    _LVOrtAllocRequestA(a6)
  56.         move.l    d0,volreq
  57.         beq.w    freelist            ;free multilist..
  58.  
  59. *-------------- select destination path..
  60.  
  61.         lea    volpath,a1
  62.         clr.b    (a1)
  63.  
  64.         suba.l    a2,a2
  65.         lea    Text89(pc),a3
  66.         lea    Tags11(pc),a0
  67.         move.l    volreq(pc),a1
  68.         jsr    _LVOrtFileRequestA(a6)
  69.         tst.l    d0
  70.         beq.s    vol_error
  71.  
  72. *-------------- selection ok...
  73.  
  74.         move.l    volreq(pc),a0
  75.         move.l    rtfi_Dir(a0),a0
  76.         lea    volpath,a1
  77. get_volname:    move.b    (a0)+,(a1)+
  78.         bne.s    get_volname
  79.         bra.s    vol_free
  80.  
  81. *-------------- selection cancelled or failed..
  82.  
  83. vol_error    lea    NoPath.txt(pc),a0
  84.         bsr.w    putstr
  85.  
  86. vol_free    move.l    volreq(pc),a1
  87.         jsr    _LVOrtFreeRequest(a6)
  88.  
  89.  
  90. ******************************************************************************
  91. *-------------- process all filenames in the list...
  92.         
  93.         move.l    flist(pc),a6
  94. nextfile:
  95.         lea    finalname,a5
  96.         move.l    a5,a1
  97.  
  98.         move.l    filereq(pc),a0
  99.         move.l    rtfi_Dir(a0),d0
  100.         beq.s    no_slash
  101.         move.l    d0,a0
  102.         move.l    rtfl_Name(a6),d1
  103.         beq.s    nextname
  104.         
  105. bytecopy:    move.b    (a0)+,(a1)+
  106.         bne.s    bytecopy
  107.         cmp.b    #":",-2(a1)
  108.         bne.s    add_slash
  109.         tst.b    -(a1)
  110.         bra.s    no_slash
  111. add_slash:    tst.b    -(a1)
  112.         move.b    #"/",(a1)+
  113. no_slash:    move.l    d1,a0
  114. bytecopy2:    move.b    (a0)+,(a1)+
  115.         bne.s    bytecopy2
  116.         clr.b    (a1)+
  117.         move.l    a5,d0
  118.  
  119. *-------------- d0.l = final filename..
  120.  
  121.         bsr.s    process            ;process files in linked list.
  122.         tst.l    d0            ;abort processing of files??
  123.         bne.s    aborted
  124.  
  125. nextname    move.l    rtfl_Next(a6),a6
  126.         cmp.l    #0,a6
  127.         bne.s    nextfile
  128.  
  129.         lea    Done.txt(pc),a0
  130.         bsr.w    putstr
  131.  
  132. *-------------- free list of filenames..
  133.  
  134. freelist
  135. aborted        move.l    flist(pc),a0
  136.         move.l    _RTBase,a6
  137.         jsr    _LVOrtFreeFileList(a6)
  138.  
  139. *-------------- free file requesters..
  140.  
  141. ok16        move.l    filereq(pc),a1
  142.         jsr    _LVOrtFreeRequest(a6)
  143.  
  144. *-------------- close reqtools library..
  145.  
  146. closelibs
  147. ok17        move.l    _RTBase(pc),a1
  148.         move.l    4.w,a6
  149.         jsr    -414(a6)
  150.  
  151. *-------------- close dos library..
  152.  
  153. closedos:    move.l    _DOSBase(pc),a1
  154.         move.l    4.w,a6
  155.         jsr    -414(a6)
  156.  
  157. NoLib:        moveq    #0,d0
  158.         rts
  159.  
  160.  
  161.  
  162.  
  163. process        movem.l    d1-d7/a0-a6,-(sp)
  164.  
  165. *-------------- Attempt to load this file..
  166.  
  167. LoadFile:    move.l    d0,-(sp)
  168.         lea    Load.txt(pc),a0
  169.         bsr.w    putstr
  170.         move.l    (sp),a0
  171.         bsr.w    putstr
  172.         lea    LF.txt(pc),a0
  173.         bsr.w    putstr
  174.         lea    LF.txt(pc),a0
  175.         bsr.w    putstr
  176.         move.l    (sp),a0
  177.         bsr.w    LoadDOSFile
  178.         move.l    (sp)+,a0
  179.         tst.l    d0
  180.         beq.s    Load_Okay
  181.  
  182.         cmp.l    #-2,d0
  183.         bne.s    notf
  184.  
  185. *-------------- out of memory
  186.  
  187.         move.l    a0,-(sp)
  188.         lea    ErrorMem.txt(pc),a0
  189.         bsr.w    putstr
  190.         move.l    (sp)+,a0
  191.         bra.b    nosave
  192.  
  193. *-------------- file not found
  194. notf
  195.         move.l    a0,-(sp)
  196.         lea    ErrorLoad.txt(pc),a0
  197.         bsr.w    putstr
  198.         move.l    (sp)+,a0
  199.         bra.b    nosave
  200.  
  201. Load_Okay:    bsr.w    sort_destname
  202.  
  203.         move.l    d0,-(sp)
  204.         bsr.w    ScanIt
  205.         move.l    (sp)+,a0        ;a0=filename..
  206.  
  207.         move.l    a0,Savename
  208.  
  209. *-------------- Attempt to save this file..
  210.  
  211. SaveFile:    tst.b    patched
  212.         beq.s    skip_save
  213.         
  214.         lea    Save.txt(pc),a0
  215.         bsr.w    putstr
  216.         move.l    Savename(pc),a0
  217.         bsr.w    putstr
  218.         lea    LF.txt(pc),a0
  219.         bsr.w    putstr
  220.  
  221. *-------------- write file out..
  222.  
  223.         move.l    Savename,a0
  224.         move.l    ProgBuff(pc),a1
  225.         move.l    ProgSize(pc),d1
  226.         bsr.w    SaveDOSFile
  227.         tst.l    d0
  228.         beq.s    Save_Okay
  229.  
  230.         lea    ErrorSave.txt(pc),a0
  231.         bsr.w    putstr
  232. Save_Okay
  233.  
  234. nosave        clr.b    patched
  235.  
  236.         bsr.w    FreeDOSFile
  237.  
  238. *-------------- abort processing of files if CTRL+C was pressed...
  239.  
  240.         bsr.b    _CheckBreak
  241.  
  242.         movem.l    (sp)+,d1-d7/a0-a6
  243.         rts
  244.  
  245. skip_save:    lea    skip_save.txt(pc),a0
  246.         bsr.w    putstr
  247.         bra.s    nosave
  248.  
  249.  
  250. _CheckBreak:    moveq    #0,d0
  251.         moveq    #0,d1
  252.         bset.l    #SIGBREAKB_CTRL_C,d1    ;check for CTRL_C
  253.         move.l    _DOSBase(pc),a6
  254.         jsr    _LVOCheckSignal(a6)    ;did user signal a break??
  255.  
  256.         btst.l    #SIGBREAKB_CTRL_C,d0
  257.         beq.s    NoBreak
  258. WasBroken:    moveq    #1,d0            ;yes.. user tried to break..
  259.         rts
  260.  
  261. NoBreak:    moveq    #0,d0            ;no break
  262.         rts
  263.  
  264. ScanIt:        movem.l    d0-d7/a0-a6,-(sp)
  265.  
  266.  
  267. ********************************************************************************
  268. *-------------- scan for "Long Muls"
  269.  
  270. _PASS1:        lea    Find_Muls.l.txt(pc),a0
  271.         bsr.w    PutString
  272.  
  273.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  274.         move.l    a0,a1
  275.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  276.         lea    SASC_Muls(pc),a2    ;a2.l = Binary to find...
  277.         moveq    #(SASC_Muls_End-SASC_Muls)-2,d0    ;length of binary.
  278.         bsr.w    FindBinary
  279.         bne.s    not_found1
  280.  
  281.         st    patched
  282.         
  283. *-------------- patch the Multiply Signed routine...
  284.  
  285.         lea    my020_Muls(pc),a1
  286.         exg.l    a1,a0
  287.         moveq    #30,d0            ;no.of bytes to copy
  288.         bsr.w    CopyMem
  289.  
  290.         lea    Patched.txt(pc),a0
  291.         bsr.w    PutString
  292.         bra.s    was_found1
  293.  
  294. *-------------- skip patching Multiply Signed routine..
  295.  
  296. not_found1:    lea    NotPatched.txt(pc),a0
  297.         bsr.w    PutString
  298.  
  299. was_found1:
  300.  
  301.  
  302. ********************************************************************************
  303. _PASS2:
  304.  
  305.         lea    Find_Mulu.l.txt(pc),a0
  306.         bsr.w    PutString
  307.  
  308.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  309.         move.l    a0,a1
  310.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  311.         lea    SASC_Mulu(pc),a2    ;a2.l = Binary to find...
  312.         moveq    #(SASC_Mulu_End-SASC_Mulu)-2,d0    ;length of binary.
  313.         bsr.w    FindBinary
  314.         bne.s    not_found2
  315.  
  316.         st    patched
  317.         
  318. *-------------- patch the Multiply Unsigned routine...
  319.  
  320.         lea    my020_Mulu(pc),a1
  321.         exg.l    a1,a0
  322.         moveq    #32,d0            ;no.of bytes to copy
  323.         bsr.w    CopyMem
  324.  
  325.         lea    Patched.txt(pc),a0
  326.         bsr.w    PutString
  327.         bra.s    was_found2
  328.  
  329. *-------------- skip patching Multiply Signed routine..
  330.  
  331. not_found2:    lea    NotPatched.txt(pc),a0
  332.         bsr.w    PutString
  333.  
  334. was_found2:
  335.  
  336.  
  337.  
  338.  
  339.  
  340. ********************************************************************************
  341. _PASS3:
  342.         lea    Find_Divsl.l.txt(pc),a0
  343.         bsr.w    PutString
  344.  
  345.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  346.         move.l    a0,a1
  347.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  348.         lea    SASC_Divsl(pc),a2    ;a2.l = Binary to find...
  349.         moveq    #54,d0            ;length of binary.
  350.         bsr.w    FindBinary
  351.         bne.s    not_found3
  352.  
  353.         st    patched
  354.         
  355. *-------------- patch the Divide Unsigned routine...
  356.  
  357.         lea    50(a0),a0
  358.         lea    my020_Divsl(pc),a1
  359.         exg.l    a1,a0
  360.         move.l    #32,d0            ;no.of bytes to copy
  361.         bsr.w    CopyMem
  362.  
  363.         lea    Patched.txt(pc),a0
  364.         bsr.w    PutString
  365.         bra.s    was_found3
  366.  
  367. *-------------- skip patching Multiply Signed routine..
  368.  
  369. not_found3:    lea    NotPatched.txt(pc),a0
  370.         bsr.w    PutString
  371.  
  372. was_found3:
  373.  
  374.  
  375.  
  376. ********************************************************************************
  377. _PASS4:        lea    Find_MulsOther.l.txt(pc),a0
  378.         bsr.w    PutString
  379.  
  380.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  381.         move.l    a0,a1
  382.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  383.         lea    OTHER_Muls(pc),a2    ;a2.l = Binary to find...
  384.         moveq    #(OTHER_Muls_End-OTHER_Muls)-2,d0    ;length of binary.
  385.         bsr.w    FindBinary
  386.         bne.s    not_found4
  387.  
  388.         st    patched
  389.         
  390. *-------------- patch the Multiply Unsigned routine...
  391.  
  392.         lea    my020_Muls(pc),a1
  393.         exg.l    a1,a0
  394.         moveq    #6,d0            ;no.of bytes to copy
  395.         bsr.w    CopyMem
  396.  
  397.         lea    Patched.txt(pc),a0
  398.         bsr.w    PutString
  399.         bra.s    was_found4
  400.  
  401. *-------------- skip patching Multiply Signed routine..
  402.  
  403. not_found4:    lea    NotPatched.txt(pc),a0
  404.         bsr.w    PutString
  405.  
  406. was_found4:
  407.  
  408. ********************************************************************************
  409.  
  410. _PASS5:        lea    Find_MulsOther2.l.txt(pc),a0
  411.         bsr.w    PutString
  412.  
  413.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  414.         move.l    a0,a1
  415.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  416.         lea    OTHER2_Muls(pc),a2    ;a2.l = Binary to find...
  417.         moveq    #(OTHER2_Muls_End-OTHER2_Muls)-2,d0    ;length of binary.
  418.         bsr.w    FindBinary
  419.         bne.s    not_found5
  420.  
  421.         st    patched
  422.         
  423. *-------------- patch the Multiply Unsigned routine...
  424.  
  425.         lea    my020_Muls(pc),a1
  426.         exg.l    a1,a0
  427.         moveq    #6,d0            ;no.of bytes to copy
  428.         bsr.w    CopyMem
  429.  
  430.         lea    Patched.txt(pc),a0
  431.         bsr.w    PutString
  432.         bra.s    was_found5
  433.  
  434. *-------------- skip patching Multiply Signed routine..
  435.  
  436. not_found5:    lea    NotPatched.txt(pc),a0
  437.         bsr.w    PutString
  438.  
  439. was_found5:
  440.  
  441.  
  442.  
  443. *******************************************************************************
  444. * Lets try to patch the "DICE Muls" routine...
  445.  
  446.  
  447. _PASS6:        lea    Find_MulsDice.l.txt(pc),a0
  448.         bsr.w    PutString
  449.  
  450.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  451.         move.l    a0,a1
  452.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  453.         lea    _Dice_Muls(pc),a2    ;a2.l = Binary to find...
  454.         moveq    #(_Dice_Muls_End-_Dice_Muls)-2,d0    ;length of binary.
  455.         bsr.w    FindBinary
  456.         bne.s    not_found6
  457.  
  458.         st    patched
  459.         
  460. *-------------- patch the Multiply Unsigned routine...
  461.  
  462.         lea    _Dice_Muls020(pc),a1
  463.         exg.l    a1,a0
  464.         moveq    #_Dice_Muls020_End-_Dice_Muls020,d0    ;no.of bytes to copy
  465.         bsr.w    CopyMem
  466.  
  467.         lea    Patched.txt(pc),a0
  468.         bsr.w    PutString
  469.         bra.s    was_found6
  470.  
  471. *-------------- skip patching Multiply Signed routine..
  472.  
  473. not_found6:    lea    NotPatched.txt(pc),a0
  474.         bsr.w    PutString
  475.  
  476. was_found6:
  477.  
  478. ********************************************************************************
  479.  
  480. _PASS7:
  481.         lea    Find_Divsl2.l.txt(pc),a0
  482.         bsr.w    PutString
  483.  
  484.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  485.         move.l    a0,a1
  486.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  487.         lea    divides(pc),a2        ;a2.l = Binary to find...
  488.         move.l    #(divides_end-divides)-2,d0    ;length of binary.
  489.         bsr.w    FindBinary
  490.         bne.s    not_found7
  491.  
  492.         st    patched
  493.  
  494.         move.l    a0,-(sp)
  495.  
  496. *-------------- patch "divsl.l"
  497.         lea    _Divsl.l.020(pc),a0        ;00
  498.         move.l    (sp),a1
  499.         move.l    #_Divsl.l.020_end-_Divsl.l.020,d0
  500.         bsr.w    CopyMem
  501.         
  502. *-------------- patch "divsl.r"
  503.         lea    _Divsl.r020(pc),a0        ;40
  504.         move.l    (sp),a1
  505.         lea    40(a1),a1
  506.         move.l    #_Divsl.r020_end-_Divsl.r020,d0
  507.         bsr.w    CopyMem
  508.                 
  509. *-------------- patch "divul.r"
  510.         lea    _Divul.r020(pc),a0        ;66
  511.         move.l    (sp),a1
  512.         lea    66(a1),a1
  513.         move.l    #_Divul.r020_end-_Divul.r020,d0
  514.         bsr.w    CopyMem
  515.  
  516. *-------------- patch "divul.l"
  517.         lea    _Divul.l.020(pc),a0        ;78
  518.         move.l    (sp)+,a1
  519.         lea    78(a1),a1
  520.         move.l    #_Divul.l.020_end-_Divul.l.020,d0
  521.         bsr.w    CopyMem
  522.         
  523.         lea    Patched.txt(pc),a0
  524.         bsr.w    PutString
  525.         bra.s    was_found7
  526.  
  527. *-------------- skip patching Multiply Signed routine..
  528.  
  529. not_found7:    lea    NotPatched.txt(pc),a0
  530.         bsr.w    PutString
  531.  
  532. was_found7:
  533.  
  534.  
  535. ********************************************************************************
  536.  
  537. _PASS8:
  538.         lea    Find_Divsl3.l.txt(pc),a0
  539.         bsr.w    PutString
  540.  
  541.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  542.         move.l    a0,a1
  543.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  544.         lea    divides2(pc),a2        ;a2.l = Binary to find...
  545.         move.l    #(divides2_end-divides2)-2,d0    ;length of binary.
  546.         bsr.w    FindBinary
  547.         bne.s    not_found8
  548.  
  549.         st    patched
  550.  
  551.         move.l    a0,-(sp)
  552.  
  553. *-------------- patch "divul.rem"
  554.  
  555.         lea    Divul.rem(pc),a0        ;00
  556.         move.l    (sp),a1
  557.         move.l    #Divul.rem_end-Divul.rem,d0
  558.         bsr.w    CopyMem
  559.  
  560. *-------------- patch "divsl.neg"
  561.  
  562.         lea    Divsl.neg(pc),a0        ;78
  563.         move.l    (sp)+,a1
  564.         lea    78(a1),a1
  565.         move.l    #Divsl.neg_end-Divsl.neg,d0
  566.         bsr.w    CopyMem
  567.         
  568.         lea    Patched.txt(pc),a0
  569.         bsr.w    PutString
  570.         bra.s    was_found8
  571.  
  572. *-------------- skip patching Multiply Signed routine..
  573.  
  574. not_found8:    lea    NotPatched.txt(pc),a0
  575.         bsr.w    PutString
  576.  
  577. was_found8:
  578.  
  579.  
  580. ********************************************************************************
  581.  
  582. _PASS9:        lea    Find_MulsOther3.l.txt(pc),a0
  583.         bsr.w    PutString
  584.  
  585.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  586.         move.l    a0,a1
  587.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  588.         lea    Mul3(pc),a2        ;a2.l = Binary to find...
  589.         moveq    #(Mul3_End-Mul3)-2,d0    ;length of binary.
  590.         bsr.w    FindBinary
  591.         bne.s    not_found9
  592.  
  593.         st    patched
  594.         
  595. *-------------- patch the Multiply Unsigned routine...
  596.  
  597.         lea    Mul3_020(pc),a1
  598.         exg.l    a1,a0
  599.         moveq    #Mul3_020_End-Mul3_020,d0    ;no.of bytes to copy
  600.         bsr.w    CopyMem
  601.  
  602.         lea    Patched.txt(pc),a0
  603.         bsr.w    PutString
  604.         bra.s    was_found9
  605.  
  606. *-------------- skip patching Multiply Signed routine..
  607.  
  608. not_found9:    lea    NotPatched.txt(pc),a0
  609.         bsr.w    PutString
  610.  
  611. was_found9:
  612.  
  613.  
  614. ********************************************************************************
  615.  
  616. _PASS10:
  617.         lea    Find_Divsl4.l.txt(pc),a0
  618.         bsr.w    PutString
  619.  
  620.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  621.         move.l    a0,a1
  622.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  623.         lea    divides3(pc),a2        ;a2.l = Binary to find...
  624.         move.l    #(divides3_end-divides3)-2,d0    ;length of binary.
  625.         bsr.w    FindBinary
  626.         bne.s    not_found10
  627.  
  628.         st    patched
  629.  
  630. *-------------- patch div
  631.  
  632.         lea    div(pc),a1        ;00
  633.         exg.l    a1,a0
  634.         move.l    #div_end-div,d0
  635.         bsr.w    CopyMem
  636.         
  637.         lea    Patched.txt(pc),a0
  638.         bsr.w    PutString
  639.         bra.s    was_found10
  640.  
  641. *-------------- skip patching Multiply Signed routine..
  642.  
  643. not_found10:    lea    NotPatched.txt(pc),a0
  644.         bsr.w    PutString
  645.  
  646. was_found10:
  647.  
  648.  
  649. ********************************************************************************
  650.  
  651. _PASS11:
  652.         lea    Find_Divsl5.l.txt(pc),a0
  653.         bsr.w    PutString
  654.  
  655.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  656.         move.l    a0,a1
  657.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  658.         lea    divides4(pc),a2        ;a2.l = Binary to find...
  659.         move.l    #(divides4_end-divides4)-2,d0    ;length of binary.
  660.         bsr.w    FindBinary
  661.         bne.s    not_found11
  662.  
  663.         st    patched
  664.  
  665. *-------------- patch div
  666.  
  667.         lea    div4(pc),a1        ;00
  668.         exg.l    a1,a0
  669.         move.l    #div4_end-div4,d0
  670.         bsr.w    CopyMem
  671.         
  672.         lea    Patched.txt(pc),a0
  673.         bsr.w    PutString
  674.         bra.s    was_found11
  675.  
  676. *-------------- skip patching Multiply Signed routine..
  677.  
  678. not_found11:    lea    NotPatched.txt(pc),a0
  679.         bsr.w    PutString
  680.  
  681. was_found11:
  682.  
  683.  
  684. ********************************************************************************
  685. * Patch manx mulu routines...
  686.  
  687. _PASS12:
  688.         lea    manxmulu.txt(pc),a0
  689.         bsr.w    PutString
  690.  
  691.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  692.         move.l    a0,a1
  693.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  694.         lea    manxmulu(pc),a2        ;a2.l = Binary to find...
  695.         move.l    #(manxmulu_end-manxmulu)-2,d0    ;length of binary.
  696.         bsr.w    FindBinary
  697.         bne.s    not_found12
  698.  
  699.         st    patched
  700.  
  701. *-------------- patch mulu
  702.  
  703.         lea    manxmulu020(pc),a1        ;00
  704.         exg.l    a1,a0
  705.         move.l    #manxmulu020_end-manxmulu020,d0
  706.         bsr.w    CopyMem
  707.         
  708.         lea    Patched.txt(pc),a0
  709.         bsr.w    PutString
  710.         bra.s    was_found12
  711.  
  712. *-------------- skip patching Multiply Signed routine..
  713.  
  714. not_found12:    lea    NotPatched.txt(pc),a0
  715.         bsr.w    PutString
  716.  
  717. was_found12:
  718.  
  719.  
  720. ********************************************************************************
  721. * Patch manx divs routines...
  722.  
  723. _PASS13:
  724.         lea    manxdivs.txt(pc),a0
  725.         bsr.w    PutString
  726.  
  727.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  728.         move.l    a0,a1
  729.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  730.         lea    manxdivs(pc),a2        ;a2.l = Binary to find...
  731.         move.l    #(manxdivs_end-manxdivs)-2,d0    ;length of binary.
  732.         bsr.w    FindBinary
  733.         bne.s    not_found13
  734.  
  735.         st    patched
  736.  
  737. *-------------- patch manx divs
  738.  
  739.         lea    manxdivs020(pc),a1        ;00
  740.         exg.l    a1,a0
  741.         move.l    #manxdivs020_end-manxdivs020,d0
  742.         bsr.w    CopyMem
  743.         
  744.         lea    Patched.txt(pc),a0
  745.         bsr.w    PutString
  746.         bra.s    was_found13
  747.  
  748. *-------------- skip patching Multiply Signed routine..
  749.  
  750. not_found13:    lea    NotPatched.txt(pc),a0
  751.         bsr.w    PutString
  752.  
  753. was_found13:
  754.  
  755.  
  756.  
  757. ********************************************************************************
  758. * Patch manx divneg routines...
  759.  
  760. _PASS14:
  761.         lea    manxdivneg.txt(pc),a0
  762.         bsr.w    PutString
  763.  
  764.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  765.         move.l    a0,a1
  766.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  767.         lea    manxdivneg(pc),a2        ;a2.l = Binary to find...
  768.         move.l    #(manxdivneg_end-manxdivneg)-2,d0    ;length of binary.
  769.         bsr.w    FindBinary
  770.         bne.s    not_found14
  771.  
  772.         st    patched
  773.  
  774. *-------------- patch manx divneg
  775.  
  776.         lea    manxdivneg020(pc),a1        ;00
  777.         exg.l    a1,a0
  778.         move.l    #manxdivneg020_end-manxdivneg020,d0
  779.         bsr.w    CopyMem
  780.         
  781.         lea    Patched.txt(pc),a0
  782.         bsr.w    PutString
  783.         bra.s    was_found14
  784.  
  785. *-------------- skip patching Multiply Signed routine..
  786.  
  787. not_found14:    lea    NotPatched.txt(pc),a0
  788.         bsr.w    PutString
  789.  
  790. was_found14:
  791.  
  792.  
  793. ********************************************************************************
  794.  
  795. _PASS15:
  796.         lea    Find_Divsl6.l.txt(pc),a0
  797.         bsr.w    PutString
  798.  
  799.         move.l    ProgBuff(pc),a0        ;a0.l = Start of file SOF
  800.         move.l    a0,a1
  801.         add.l    ProgSize(pc),a1        ;a1.l = End of file EOF
  802.         lea    divides5(pc),a2        ;a2.l = Binary to find...
  803.         move.l    #(divides5_end-divides5)-2,d0    ;length of binary.
  804.         bsr.w    FindBinary
  805.         bne.s    not_found15
  806.  
  807.         st    patched
  808.  
  809. *-------------- patch div
  810.  
  811.         lea    div5(pc),a1        ;00
  812.         exg.l    a1,a0
  813.         move.l    #div5_end-div5,d0
  814.         bsr.w    CopyMem
  815.         
  816.         lea    Patched.txt(pc),a0
  817.         bsr.w    PutString
  818.         bra.s    was_found15
  819.  
  820. *-------------- skip patching Multiply Signed routine..
  821.  
  822. not_found15:    lea    NotPatched.txt(pc),a0
  823.         bsr.w    PutString
  824.  
  825. was_found15:
  826.  
  827.  
  828.         movem.l    (sp)+,d0-d7/a0-a6
  829.         rts
  830.         
  831.  
  832.  
  833. sort_destname:    lea    volpath,a3
  834.         tst.b    (a3)
  835.         beq.s    use_extension
  836.  
  837.         lea    finalname,a5
  838.         move.l    a5,a1
  839.         move.l    a3,a0
  840.         move.l    rtfl_Name(a6),d1
  841.         beq.w    nextname
  842.         
  843. _bytecopy:    move.b    (a0)+,(a1)+
  844.         bne.s    _bytecopy
  845.         cmp.b    #":",-2(a1)
  846.         bne.s    _add_slash
  847.         tst.b    -(a1)
  848.         bra.s    _no_slash
  849. _add_slash:    tst.b    -(a1)
  850.         move.b    #"/",(a1)+
  851. _no_slash:    move.l    d1,a0
  852. _bytecopy2:    move.b    (a0)+,(a1)+
  853.         bne.s    _bytecopy2
  854.         clr.b    (a1)+
  855.         move.l    a5,d0
  856.         bra.s    done_name
  857.  
  858. use_extension:    move.l    a0,d0
  859.         moveq    #-1,d3            ;d4=0
  860. getlen2        addq.l    #1,d3            ;increase string length by 1
  861.         tst.b    (a0)+            ;increase position
  862.         bne.s    getlen2            ;nope not found, so keep on
  863.         tst.b    -(a0)
  864.         move.b    #".",(a0)+
  865.         move.b    #"0",(a0)+
  866.         move.b    #"2",(a0)+
  867.         move.b    #"0",(a0)+
  868.         clr.b    (a0)+
  869. done_name:
  870. *-------------- returns d0.l = filename..
  871.  
  872.         rts
  873.         
  874. *******************************************************************************
  875. * putstr
  876. * ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  877. * Sends a ascii text string to current console output
  878. * 
  879. * $Inputs:    a0.l = String ptr (null terminated)
  880. *******************************************************************************
  881.  
  882. PutString
  883. putstr:        movem.l    d0-d7/a1-a6,-(sp)
  884.         move.l    a0,d2
  885.         moveq    #-1,d3            ;d4=0
  886. getlen3        addq.l    #1,d3            ;increase string length by 1
  887.         tst.b    (a0)+            ;increase position
  888.         bne.s    getlen3            ;nope not found, so keep on
  889.         move.l    _DOSBase(pc),a6
  890.         jsr    _LVOOutput(a6)        ;get output base
  891.         move.l    d0,d1
  892.         jsr    _LVOWrite(a6)        ;print error msg to cli
  893.         movem.l    (sp)+,d0-d7/a1-a6
  894.         rts
  895.                 
  896. *******************************************************************************
  897. * _LoadDOSFile :- Loads an AmigaDOS file from any device into memory
  898. * ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  899. * INPUTS:    a0 (.L)    = Filename
  900. *
  901. * OUTPUTS:    d0 (.L) = Result Code (0=File Ok,-1=Load Failed!)    
  902. *        d1 (.L) = Length
  903. *******************************************************************************
  904.     
  905. LoadDOSFile:    movem.l    d2-d7/a0/a2-a6,-(sp)
  906.         clr.l    ProgHandle
  907.         clr.l    ProgBuff
  908.         clr.l    ProgSize
  909.  
  910. ;-------------- Open file
  911.         move.l    a0,d1            ;get filename
  912.         move.l    #MODE_OLDFILE,d2
  913.         move.l    _DOSBase(pc),a6
  914.         jsr    _LVOOpen(a6)        ;open file
  915.         move.l    d0,ProgHandle
  916.         beq.s    NotFound
  917.  
  918. ;-------------- Get Length of file
  919.  
  920.         move.l    d0,d5            ;ProgHandle
  921.         move.l    d5,d1            ;file handle
  922.         moveq    #0,d2
  923.         moveq    #1,d3
  924.         jsr    _LVOSeek(a6)        ;seek start of file
  925.         move.l    d5,d1            ;file handle
  926.         moveq    #0,d2
  927.         moveq    #-1,d3
  928.         jsr    _LVOSeek(a6)        ;seek end of file
  929.         move.l    d0,ProgSize
  930.  
  931. ;-------------- Allocate Memory for file
  932.  
  933.         move.l    4.w,a6            ;get execbase
  934.         move.l    #MEMF_PUBLIC,d1        ;we want public mem
  935.         jsr    _LVOAllocMem(a6)    ;allocate it...
  936.         move.l    d0,ProgBuff        ;save base
  937.         beq.b    TooBig            ;fail?
  938.  
  939. ;-------------- Load in whole file
  940.                 
  941.         move.l    ProgHandle(pc),d1
  942.         move.l    ProgBuff,d2
  943.         move.l    ProgSize(pc),d3
  944.         move.l    _DOSBase(pc),a6
  945.         jsr    _LVORead(a6)        ;read file
  946.  
  947. ;-------------- Close file
  948.  
  949. CloseFile:    move.l    ProgHandle(pc),d1
  950.         jsr    _LVOClose(a6)        ;close file
  951.  
  952.         move.l    ProgSize(pc),d1        ;d1=ProgSize
  953.         move.l    ProgBuff(pc),a1        
  954.  
  955.         movem.l    (sp)+,d2-d7/a0/a2-a6
  956.         moveq    #0,d0            ;resultcode (okay)
  957.         rts
  958.  
  959. NotFound:    movem.l    (sp)+,d2-d7/a0/a2-a6
  960.         moveq    #-1,d0            ;file not found error-code
  961.         rts
  962.  
  963. TooBig:        move.l    ProgHandle(pc),d1
  964.         move.l    _DOSBase(pc),a6
  965.         jsr    _LVOClose(a6)        ;close file
  966.         movem.l    (sp)+,d2-d7/a0/a2-a6
  967.         moveq    #-2,d0            ;file too big error-code
  968. NotAlloc    rts
  969.  
  970.  
  971.  
  972.  
  973. ;-------------- Free Memory for DOSFile
  974.  
  975. FreeDOSFile:    move.l    (AbsExecBase).w,a6    ;get execbase
  976.  
  977.         move.l    ProgBuff(pc),d0        ;ptr to our RS.Variables base
  978.         beq.s    NotAlloc1
  979.         move.l    d0,a1
  980.         move.l    ProgSize(pc),d0        ;no. of Bytes to free
  981.         beq.s    NotAlloc1
  982.         jsr    _LVOFreeMem(a6)        ;free the memory
  983.         clr.l    ProgBuff
  984.         clr.l    ProgSize
  985.  
  986. NotAlloc1:    rts
  987.  
  988. *******************************************************************************
  989. * SaveMem2File
  990. * ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  991. * $Inputs:    a0.l    = Filename
  992. *        a1.l    = Mem Address
  993. *        d1.l    = Save Length
  994. *
  995. * $Outputs:    d0.l    = 0 - success
  996. *        d0.l    = 1 - failure
  997. *******************************************************************************
  998.  
  999. SaveDOSFile:    movem.l    d2-d7/a0-a6,-(sp)
  1000.         move.l    a1,d5            ;progbuffer
  1001.         move.l    d1,d6            ;proglength
  1002.         beq.s    _NoGain
  1003.  
  1004.         move.l    a0,d1            ;filename
  1005.         move.l    #MODE_NEWFILE,d2
  1006.         move.l    _DOSBase(pc),a6
  1007.         jsr    _LVOOpen(a6)
  1008.         move.l    d0,d7
  1009.         beq.b    _SaveError
  1010.  
  1011.         move.l    d7,d1            ;fh...
  1012.         move.l    d5,d2            ;adr
  1013.         move.l    d6,d3            ;length
  1014.         jsr    _LVOWrite(a6)        ;write file
  1015.  
  1016.         move.l    d7,d1
  1017.         jsr    _LVOClose(a6)        ;close file
  1018. _NoGain:    movem.l    (sp)+,d2-d7/a0-a6
  1019.         moveq    #0,d0
  1020.         rts
  1021. _SaveError:    movem.l    (sp)+,d2-d7/a0-a6
  1022.         moveq    #1,d0
  1023.         rts
  1024.  
  1025.  
  1026.  
  1027.  
  1028. *******************************************************************************
  1029. * FindString
  1030. * ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  1031. * This routine will scan through Memory for a ascii (case dependant) string.
  1032. * The routine will not find its 'search string' if the start and end addresses 
  1033. * are within the same address range as an added precaution.
  1034. *
  1035. * INPUTS ;    a0.l=start address for search
  1036. *         a1.l=end address for search
  1037. *         a2.l=string to search for
  1038. *
  1039. * OUTPUTS;    d0.b=If failed to located string =$FF.B, else =$00.B FOUND!
  1040. *        a0.l=ptr to string
  1041. *******************************************************************************
  1042.         cnop    0,4
  1043. FindBinary:    movem.l    a1-a6,-(sp)
  1044.         move.l    d0,d4
  1045.         bsr.s    FindBin
  1046.         movem.l    (sp)+,a1-a6
  1047.         tst.l    d0
  1048.         rts
  1049.         
  1050.         cnop    0,4
  1051. FindStr:    move.l    a2,-(sp)
  1052.         moveq    #-3,d4            ;d4=0
  1053. .getlen        addq.l    #1,d4            ;increase string length by 1
  1054.         tst.b    (a2)+            ;increase position
  1055.         bne.s    .getlen            ;nope not found, so keep on
  1056.         move.l    (sp)+,a2
  1057.  
  1058. FindBin:    move.l    a2,a3            ;copy string ptr
  1059.         lea    _kkeepon(pc),a4        ;a4=Keepon sub routine
  1060.         moveq    #0,d5            ;d5=0
  1061. _Not_It        move.l    a3,a2            ;a3=search string ptr
  1062.         move.b    (a2)+,d2        ;put char to test into d2
  1063.  
  1064. _kkeepon:    move.b    (a0)+,d1        ;incr search pos
  1065.         cmp.l    a1,a0            ;end of Memory region reached?
  1066.         blt.s    _contt            ;yes,so string wasn`t found!
  1067.         moveq    #-1,d0            ;d0=not found!
  1068.         rts
  1069.  
  1070.         cnop    0,4
  1071. _contt        cmp.b    d1,d2            ;does this Byte match string Byte?
  1072.         beq.s    _nByte            ;yes!,lets investigate more...
  1073.         jmp    (a4)            ;nope so keep on searching
  1074.  
  1075.         cnop    0,4
  1076. _nByte:        move.l    d4,d3
  1077. _nloop        move.b    (a0)+,d5
  1078.         cmp.b    (a2)+,d5
  1079.         dbne    d3,_nloop
  1080.         bne.s    _Not_It
  1081.  
  1082.         move.l    a0,d0            ;d0=ptr to text found!
  1083.         sub.l    d4,d0
  1084.         subq    #2,d0            ;correct offset ptr
  1085.  
  1086.         move.l    d0,a0
  1087.         moveq    #0,d0
  1088.         rts
  1089.  
  1090.         cnop    0,4
  1091. Start20        dc.l    '*Art'
  1092. CopyMem
  1093. Quicker:    moveq    #16,d1
  1094.         cmp.l    d1,d0
  1095.         bcs.s    tinycpy
  1096.         move.w    a0,d1
  1097.         ror.l    #2,d1
  1098.         move.w    a1,d1
  1099.         rol.l    #2,d1
  1100.         andi.w    #15,d1
  1101.         beq.s    xa0la1l
  1102.         move.w    tbl(pc,d1.w*2),d1
  1103.         jmp    tbl(pc,d1.w)
  1104.  
  1105.         ds.b    2
  1106.         ds.b    2
  1107.  
  1108. tbl    dc.w    xa0la1l-tbl
  1109.     dc.w    xa0la11-tbl
  1110.     dc.w    xa0la1e-tbl
  1111.     dc.w    xa0la13-tbl
  1112.     dc.w    xa01a1l-tbl
  1113.     dc.w    xa01a11-tbl
  1114.     dc.w    xa01a1e-tbl
  1115.     dc.w    xa01a13-tbl
  1116.     dc.w    xa0ea1l-tbl
  1117.     dc.w    xa0ea11-tbl
  1118.     dc.w    xa0ea1e-tbl
  1119.     dc.w    xa0ea13-tbl
  1120.     dc.w    xa03a1l-tbl
  1121.     dc.w    xa03a11-tbl
  1122.     dc.w    xa03a1e-tbl
  1123.     dc.w    xa03a13-tbl
  1124.  
  1125. tloop1        move.b    (a0)+,(a1)+
  1126. tinycpy        dbf    d0,tloop1
  1127.         rts
  1128.  
  1129. xa01a13:
  1130. xa03a11:
  1131. xa03a13:    move.b    (a0)+,(a1)+
  1132.         subq.l    #1,d0
  1133.         bra.s    xa0la1l
  1134.  
  1135.         ds.b    2
  1136.         ds.b    2
  1137.         ds.b    2
  1138.         ds.b    2
  1139.         ds.b    2
  1140.  
  1141. xa01a11:
  1142.     move.b    (a0)+,(a1)+
  1143.     subq.l    #1,d0
  1144. xa0ea1e:
  1145.     move.w    (a0)+,(a1)+
  1146.     subq.l    #2,d0
  1147. xa0la1l:
  1148. xa0la1e:
  1149. xa0ea1l:
  1150.     cmpi.l    #48*8,d0
  1151.     bcs.s    smlmov
  1152.     moveq    #48,d1        ; 12 registers of 4 bytes
  1153.     sub.l    d1,d0
  1154.     movem.l    d2-d7/a2-a6,-(sp)
  1155. bigmov    movem.l    (a0)+,d1-d7/a2-a6
  1156.     movem.l    d1-d7/a2-a6,(a1)
  1157.     moveq    #48,d1
  1158.     adda.l    d1,a1
  1159.     sub.l    d1,d0
  1160.     bcc.s    bigmov
  1161.     add.w    d1,d0
  1162.     movem.l    (sp)+,d2-d7/a2-a6
  1163. smlmov    lsr.w    #1,d0
  1164.     beq.s    even01
  1165.     bcs.s    sm13
  1166.     lsr.w    #1,d0
  1167.     beq.s    even2
  1168.     bcs.s    sm2
  1169. sm0    subq.w    #1,d0
  1170. loop0    move.l    (a0)+,(a1)+
  1171.     dbf    d0,loop0
  1172. even0    rts
  1173.  
  1174. even01    bcs.s    even1
  1175.     rts
  1176.  
  1177. sm3    subq.w    #1,d0
  1178. loop3    move.l    (a0)+,(a1)+
  1179.     dbf    d0,loop3
  1180. even3    move.w    (a0)+,(a1)+
  1181. even1    move.b    (a0),(a1)
  1182.     rts
  1183.  
  1184. sm13    lsr.w    #1,d0
  1185.     beq.s    even3
  1186.     bcs.s    sm3
  1187. sm1    subq.w    #1,d0
  1188. loop1    move.l    (a0)+,(a1)+
  1189.     dbf    d0,loop1
  1190.     move.b    (a0),(a1)
  1191.     rts
  1192.  
  1193. sm2    subq.w    #1,d0
  1194. loop2    move.l    (a0)+,(a1)+
  1195.     dbf    d0,loop2
  1196. even2    move.w    (a0),(a1)
  1197.     rts
  1198.  
  1199. xa0ea11:
  1200. xa0ea13:
  1201.     move.w    (a0)+,d1
  1202.     ror.w    #8,d1
  1203.     move.b    d1,(a1)+
  1204.     rol.w    #8,d1
  1205.     move.b    d1,(a1)+
  1206.     subq.l    #2,d0
  1207.     bra.s    xa0la11
  1208.  
  1209. xa01a1l:
  1210. xa01a1e:
  1211.     move.b    (a0)+,(a1)+
  1212.     move.b    (a0)+,(a1)+
  1213.     subq.l    #2,d0
  1214. xa03a1e:
  1215. xa03a1l:
  1216.     move.b    (a0)+,(a1)+
  1217.     subq.l    #1,d0
  1218.     bra.w    xa0la11
  1219.  
  1220. xa0la13:
  1221. xa0la11:
  1222.  
  1223.     moveq    #36,d1        ; 8 regs of 4 bytes + roundoff bytes
  1224.     cmp.l    d1,d0
  1225.     bcs.s    tinycp2
  1226. * This is tricky!  They said it couldn't be done...
  1227. unevcpy    movem.l    a2-a4/d2-d7,-(sp)
  1228.     movea.w    d1,a4
  1229.     sub.l    d1,d0
  1230.     movea.l    d0,a2
  1231.     moveq    #32,d1        ; 8 registers of 4 bytes
  1232.     movea.w    d1,a3
  1233. uloop    movem.l    (a0)+,d0-d7
  1234.     rol.l    #8,d0
  1235.     rol.l    #8,d1
  1236.     rol.l    #8,d2
  1237.     rol.l    #8,d3
  1238.     rol.l    #8,d4
  1239.     rol.l    #8,d5
  1240.     rol.l    #8,d6
  1241.     rol.l    #8,d7
  1242.     move.b    d0,(a1)+
  1243.     move.b    d1,d0
  1244.     move.b    d2,d1
  1245.     move.b    d3,d2
  1246.     move.b    d4,d3
  1247.     move.b    d5,d4
  1248.     move.b    d6,d5
  1249.     move.b    d7,d6
  1250.     move.b    (a0)+,d7
  1251.     movem.l    d0-d7,(a1)
  1252.     adda.l    a3,a1
  1253.     move.b    (a0)+,(a1)+    ; even up to next word
  1254.     move.b    (a0)+,(a1)+
  1255.     move.b    (a0)+,(a1)+    ; ... and to next longword
  1256.     suba.l    a4,a2
  1257.     move.l    a2,d0
  1258.     bpl.s    uloop
  1259.     add.w    a4,d0
  1260.     movem.l    (sp)+,a2-a4/d2-d7
  1261.     bra.s    tinycp2
  1262. tloop2    move.b    (a0)+,(a1)+
  1263. tinycp2    dbf    d0,tloop2
  1264. tdone    rts
  1265.  
  1266.     ds.b    2
  1267.     ds.b    2
  1268.     ds.b    2
  1269.     ds.b    2
  1270.     ds.b    2
  1271.     ds.b    2
  1272.     ds.b    4
  1273. Quickest
  1274.     bftst    d0{0:16}
  1275.     bne.s    bigq
  1276.     lsr.w    #2,d0
  1277.     cmp.w    #96,d0
  1278.     bcs.s    smlmovQ
  1279.     moveq    #12,d1
  1280.     sub.w    d1,d0
  1281.     divu.w    d1,d0
  1282.     movem.l    d2-d7/a2-a6,-(sp)
  1283. bigmovQ    movem.l    (a0)+,d1-d7/a2-a6
  1284.     movem.l    d1-d7/a2-a6,(a1)
  1285.     lea    48(a1),a1
  1286.     dbf    d0,bigmovQ
  1287.     swap    d0
  1288.     movem.l    (sp)+,d2-d7/a2-a6
  1289.     bra.s    smlmovQ
  1290. qloop    move.l    (a0)+,(a1)+
  1291. smlmovQ    dbf    d0,qloop
  1292. done    rts
  1293.  
  1294. bigq    lsr.l    #2,d0
  1295.     moveq    #48,d1
  1296.     sub.l    d1,d0
  1297.     nop
  1298.     divul.l    d1,d1:d0
  1299.     movem.l    d1-d7/a2-a6,-(sp)
  1300. bmovQ2    movem.l    (a0)+,d1-d7/a2-a6
  1301.     movem.l    d1-d7/a2-a6,(a1)
  1302.     lea    48(a1),a1
  1303.     movem.l    (a0)+,d1-d7/a2-a6
  1304.     movem.l    d1-d7/a2-a6,(a1)
  1305.     lea    48(a1),a1
  1306.     movem.l    (a0)+,d1-d7/a2-a6
  1307.     movem.l    d1-d7/a2-a6,(a1)
  1308.     lea    48(a1),a1
  1309.     movem.l    (a0)+,d1-d7/a2-a6
  1310.     movem.l    d1-d7/a2-a6,(a1)
  1311.     lea    48(a1),a1
  1312.     dbf    d0,bmovQ2
  1313.     sub.l    #$10000,d0
  1314.     bcc.s    bmovQ2
  1315.     movem.l    (sp)+,d0/d2-d7/a2-a6
  1316.     bra.s    smlmovQ
  1317.  
  1318. Stop20
  1319. Quicker20    =    Quicker-Start20
  1320. Quickest20    =    Quickest-Start20
  1321. CopyLen20    =    Stop20-Start20
  1322.  
  1323. About.txt    dc.b    $1b,'c',$a
  1324.         dc.b    $1b,'[1mPatchFor020',$1b,'[1m',$1b,'[22m ',$1b,'[33m(Public) ',$1b,'[32m1.01',$1b,'[3m',$1b,'[31m by 2-Cool of ',$1b,'[23m',$1b,'[3mEX4! ',$1b,'[23m',$1b,'[3m',$1b,'[23m',$a
  1325.         dc.b    'Copyright © 1995. All Rights Are Reserved.',$a
  1326.         dc.b    'Last Assembled: July-1995.',$a,$a,0
  1327. skip_save.txt:    dc.b    'No patches... skipping saving... ',$a,0
  1328.         even
  1329. LFs.Txt:
  1330. LF.txt        dc.b    10,0
  1331. Load.txt    dc.b    10,'Loading file.. ',0
  1332. Save.txt    dc.b    10,'Saving file.. ',0
  1333. NoPath.txt:    dc.b    10,'No Destination Path Specified!',10
  1334.         dc.b    'Adding ".020" extension to save filename(s)..',10,10,0
  1335. ErrorMem.txt:    dc.b    'Error: Out Of Memory.. not enough for load buffers...',0
  1336. ErrorLoad.txt    dc.b    'Error: Skipping file, failed to load..',10,0
  1337. ErrorSave.txt    dc.b    'Error: Skipping file, failed to save..',10,0
  1338. Done.txt:    dc.b    10,'Session Done...',10,0
  1339.         even
  1340. Find_Muls.l.txt    dc.b    'Scanning for 68k SAS/C Compiler "Unsigned Long Multiplication" routines...',$a,0
  1341.         even
  1342. Find_Mulu.l.txt    dc.b    'Scanning for 68k SAS/C Compiler "Signed Long Multiplication" routines...',$a,0
  1343.         even
  1344. Find_Divsl.l.txt  dc.b    'Scanning for 68k SAS/C Compiler "Signed Long Division" routines...',$a,0
  1345. Find_Divsl2.l.txt  dc.b    'Scanning for Compiler Strain #1 "Divu.l,Divs.l & remainder" routines...',$a,0
  1346. Find_Divsl3.l.txt  dc.b    'Scanning for Compiler Strain #2 "Divu.l,Divs.l & remainder" routines...',$a,0
  1347. Find_Divsl4.l.txt  dc.b    'Scanning for Compiler Strain #3 "Divu.l,Divs.l & remainder" routines...',$a,0
  1348. Find_Divsl5.l.txt  dc.b    'Scanning for Manx C Compiler "Modu.l" routines...',$a,0
  1349. Find_Divsl6.l.txt  dc.b    'Scanning for DICE C Compiler "Divs.l" routines...',$a,0
  1350.         even
  1351. manxmulu.txt:    dc.b    'Scanning for Manx C Compiler "Mulu.l" routines...',$a,0
  1352.         even
  1353. manxdivs.txt:    dc.b    'Scanning for Manx C Compiler "Divs.l" routines...',$a,0
  1354.         even
  1355. manxdivneg.txt:    dc.b    'Scanning for Manx C Compiler "Divs.l remainder" routines...',$a,0
  1356.         even
  1357. Find_MulsOther.l.txt    dc.b    'Scanning for C Compiler Strain #1 "Signed Long Multiply" routines...',$a,0
  1358.         even
  1359. Find_MulsOther2.l.txt    dc.b    'Scanning for Compiler Strain #2 "Signed Long Multiply" routines...',$a,0
  1360.         even
  1361. Find_MulsOther3.l.txt    dc.b    'Scanning for Compiler Strain #3 "Signed Long Multiply & Remainder" routines...',$a,0
  1362.         even
  1363. Find_MulsDice.l.txt    dc.b    'Scanning for 68k DICE C Compilers "Signed Long Multiplication" routines...',$a,0
  1364.         even
  1365. NotPatched.txt:    dc.b    'Not Found... ',$a,$a,0
  1366.         even
  1367. NotPatches.txt:    dc.b    'No patches... skipping saving... ',$a,$a,0
  1368.         even
  1369. Patched.txt:    dc.b    'A SPEEDUP GAIN! Found & Patched to MC68020+ !!!',$a,$a,0
  1370.         even
  1371. Loading.txt    dc.b    'Please select Executable File to Patch... ',0
  1372. saving.txt    dc.b    'Saving Program... ',0
  1373. alldone.txt    dc.b    $a,'All Done!',$a,$a,$a,0
  1374.         even
  1375.  
  1376. Text89        dc.b    "Select Destination Path..",0
  1377. Text66        dc.b    "Select File(s)...",0
  1378.         even
  1379. Tags9        dc.l    RTFI_Flags,FREQF_MULTISELECT
  1380.         dc.l    TAG_END
  1381. Tags11        dc.l    RTFI_Flags,FREQF_NOFILES
  1382.         dc.l    TAG_END
  1383.  
  1384. defdir_tags:    dc.l    RTFI_Dir,DefDir.txt
  1385.         dc.l    TAG_END
  1386.  
  1387. DefDir.txt:    dc.b    'SYS:',0
  1388.  
  1389. DOSName        dc.b    'dos.library',0
  1390. ReqName        dc.b    'reqtools.library',0
  1391.         cnop    0,2
  1392. _DOSBase:    ds.l    1
  1393. _RTBase:    ds.l    1
  1394.  
  1395. ProgHandle:    ds.l    1
  1396. ProgBuff:    ds.l    1
  1397. ProgSize:    ds.l    1
  1398.  
  1399. filereq        ds.l    1
  1400. volreq        ds.l    1
  1401. flist        ds.l    1
  1402. Savename    dc.l    0
  1403.  
  1404.  
  1405.         cnop    0,4        
  1406. *******************************************************************************
  1407. * Lattice SAS/C slow 68000 signed multiplication 
  1408.  
  1409. SASC_Muls    dc.w    $48E7        ;32 bytes length
  1410.         dc.w    $3000
  1411.         dc.w    $2400
  1412.         dc.w    $2601
  1413.         dc.w    $4842
  1414.         dc.w    $4843
  1415.         dc.w    $C4C1
  1416.         dc.w    $C6C0
  1417.         dc.w    $C0C1
  1418.         dc.w    $D443
  1419.         dc.w    $4842
  1420.         dc.w    $4242
  1421.         dc.w    $D082
  1422.         dc.w    $4CDF
  1423.         dc.w    $000C
  1424.         dc.w    $4E75
  1425. SASC_Muls_End:
  1426.  
  1427. my020_Muls:    muls.l    d1,d0        ;6 bytes, patch at offset 0
  1428.         rts
  1429.         dc.b    'MC68020 Patch SASC Muls'
  1430. my020_Muls_End:
  1431.  
  1432.  
  1433. *******************************************************************************
  1434. * Lattice SAS/C slow 68000 unsigned multiplication 
  1435.  
  1436.         cnop    0,4
  1437. SASC_Mulu:    dc.w    $48E7        ;46 bytes
  1438.         dc.w    $7000
  1439.         dc.w    $2400
  1440.         dc.w    $6720
  1441.         dc.w    $4A81
  1442.         dc.w    $6604
  1443.         dc.w    $4280
  1444.         dc.w    $6018
  1445.         dc.w    $2600
  1446.         dc.w    $C6C1
  1447.         dc.w    $4842
  1448.         dc.w    $C4C1
  1449.         dc.w    $4842
  1450.         dc.w    $4242
  1451.         dc.w    $D682
  1452.         dc.w    $4841
  1453.         dc.w    $C0C1
  1454.         dc.w    $4840
  1455.         dc.w    $4240
  1456.         dc.w    $D083
  1457.         dc.w    $4CDF
  1458.         dc.w    $000E
  1459.         dc.w    $4E75
  1460. SASC_Mulu_End:
  1461.  
  1462. my020_Mulu:    mulu.l    d1,d0        ;6 bytes, patch at offset 0
  1463.         rts
  1464.         dc.b    'MC68020 Patch for SAS/C Mulu.l'
  1465.         ds.b    20
  1466. my020_Mulu_End:
  1467.  
  1468.         cnop    0,4
  1469. OTHER_Muls:    movem.l    d2/d3,-(sp)
  1470.         move.w    d1,d2
  1471.         move.l    d1,d3
  1472.         mulu    d0,d2
  1473.         swap    d3
  1474.         mulu    d0,d3
  1475.         swap    d3
  1476.         clr.w    d3
  1477.         add.l    d3,d2
  1478.         swap    d0
  1479.         mulu    d1,d0
  1480.         swap    d0
  1481.         clr.w    d0
  1482.         add.l    d2,d0
  1483.         movem.l    (sp)+,d2/d3
  1484.         rts
  1485. OTHER_Muls_End
  1486.  
  1487.  
  1488.         cnop    0,4
  1489. OTHER2_Muls:    movem.l    d2/d3,-(sp)
  1490.         move.w    d1,d2
  1491.         mulu.w    d0,d2
  1492.         move.l    d1,d3
  1493.         swap    d3
  1494.         mulu.w    d0,d3
  1495.         swap    d3
  1496.         clr.w    d3
  1497.         add.l    d3,d2
  1498.         swap    d0
  1499.         mulu.w    d1,d0
  1500.         swap    d0
  1501.         clr.w    d0
  1502.         add.l    d2,d0
  1503.         movem.l    (sp)+,d2/d3
  1504.         rts    
  1505. OTHER2_Muls_End
  1506.  
  1507. *******************************************************************************
  1508. * Long Multiplication (SIGNED)
  1509. *
  1510. * DICE C (STACK COMPILED) VERSION
  1511. * -------------------------------
  1512.  
  1513.         cnop    0,4
  1514. _Dice_Muls:    movem.l    d0/d1,-(sp)
  1515.         swap    d0
  1516.         mulu    d1,d0
  1517.         swap    d1
  1518.         mulu    2(sp),d1
  1519.         add.l    d1,d0
  1520.         swap    d0
  1521.         clr.w    d0
  1522.         move.w    2(sp),d1
  1523.         mulu    6(sp),d1
  1524.         add.l    d1,d0
  1525.         addq.l    #8,sp
  1526. _Dice_Muls_End    rts
  1527.  
  1528.         cnop    0,4
  1529. _Dice_Muls020:    muls.l    d0,d1
  1530.         move.l    d1,d0
  1531.         rts
  1532. _Dice_Muls020_End:
  1533.  
  1534.  
  1535.  
  1536.         cnop    0,4
  1537.  
  1538. *******************************************************************************
  1539. * Lattice SAS/C slow 68000 signed division
  1540.  
  1541. SASC_Divsl:    dc.w    $4A80        ;194 bytes length
  1542.         dc.w    $6A00
  1543.         dc.w    $001E
  1544.         dc.w    $4480
  1545.         dc.w    $4A81
  1546.         dc.w    $6A00
  1547.         dc.w    $000C
  1548.         dc.w    $4481
  1549.         dc.w    $6100
  1550.         dc.w    $0020
  1551.         dc.w    $4481
  1552.         dc.w    $4E75
  1553.         dc.w    $6100
  1554.         dc.w    $0018
  1555.         dc.w    $4480
  1556.         dc.w    $4481
  1557.         dc.w    $4E75
  1558.         dc.w    $4A81
  1559.         dc.w    $6A00
  1560.         dc.w    $000C
  1561.         dc.w    $4481
  1562.         dc.w    $6100
  1563.         dc.w    $0006
  1564.         dc.w    $4480
  1565.         dc.w    $4E75
  1566.         dc.w    $2F02
  1567.         dc.w    $4841
  1568.         dc.w    $3401
  1569.         dc.w    $6600
  1570.         dc.w    $0022
  1571.         dc.w    $4840
  1572.         dc.w    $4841
  1573.         dc.w    $4842
  1574.         dc.w    $3400
  1575.         dc.w    $6700
  1576.         dc.w    $0006
  1577.         dc.w    $84C1
  1578.         dc.w    $3002
  1579.         dc.w    $4840
  1580.         dc.w    $3400
  1581.         dc.w    $84C1
  1582.         dc.w    $3002
  1583.         dc.w    $4842
  1584.         dc.w    $3202
  1585.         dc.w    $241F
  1586.         dc.w    $4E75
  1587.         dc.w    $2F03
  1588.         dc.w    $7610
  1589.         dc.w    $0C41
  1590.         dc.w    $0080
  1591.         dc.w    $6400
  1592.         dc.w    $0006
  1593.         dc.w    $E199
  1594.         dc.w    $5143
  1595.         dc.w    $0C41
  1596.         dc.w    $0800
  1597.         dc.w    $6400
  1598.         dc.w    $0006
  1599.         dc.w    $E999
  1600.         dc.w    $5943
  1601.         dc.w    $0C41
  1602.         dc.w    $2000
  1603.         dc.w    $6400
  1604.         dc.w    $0006
  1605.         dc.w    $E599
  1606.         dc.w    $5543
  1607.         dc.w    $4A41
  1608.         dc.w    $6B00
  1609.         dc.w    $0006
  1610.         dc.w    $E399
  1611.         dc.w    $5343
  1612.         dc.w    $3400
  1613.         dc.w    $E6A8
  1614.         dc.w    $4842
  1615.         dc.w    $4242
  1616.         dc.w    $E6AA
  1617.         dc.w    $4843
  1618.         dc.w    $80C1
  1619.         dc.w    $3600
  1620.         dc.w    $3002
  1621.         dc.w    $3403
  1622.         dc.w    $4841
  1623.         dc.w    $C4C1
  1624.         dc.w    $9082
  1625.         dc.w    $6400
  1626.         dc.w    $0006
  1627.         dc.w    $5343
  1628.         dc.w    $D081
  1629.         dc.w    $7200
  1630.         dc.w    $3203
  1631.         dc.w    $4843
  1632.         dc.w    $E7B8
  1633.         dc.w    $4840
  1634.         dc.w    $C141
  1635.         dc.w    $261F
  1636.         dc.w    $241F
  1637.         dc.w    $4E75
  1638. SASC_Divsl_End:
  1639.  
  1640.  
  1641. my020_Divsl:    divsl.l    d1,d1:d0    ;6 bytes, patch at offset 32 bytes in
  1642.         rts
  1643.         dc.b    'MC68020 Patch for SAS/C Divsl.l routines!'
  1644.         ds.b    147
  1645. my020_Divsl_End
  1646.  
  1647.  
  1648.  
  1649.         cnop    0,4
  1650. *-------------- divide signed long (result)
  1651.  
  1652. _Divsl.l.020:    divs.l    d1,d0            ; 020 optimised version
  1653.         rts
  1654. _Divsl.l.020_end
  1655.  
  1656.         cnop    0,4
  1657. *-------------- divide signed long (remainder)
  1658.  
  1659. _Divsl.r020:    move.l    d1,-(sp)        * 020 optimised version
  1660.         divsl.l    d1,d1:d0
  1661.         move.l    d1,d0
  1662.         move.l    (sp)+,d1
  1663. ;        tst.l    d0
  1664.         rts
  1665. _Divsl.r020_end
  1666.  
  1667.         cnop    0,4
  1668. *-------------- divide unsigned long (result)
  1669.  
  1670. _Divul.l.020:    divu.l    d1,d0            ; 020 optimised version
  1671.         rts
  1672. _Divul.l.020_end
  1673.  
  1674.         cnop    0,4
  1675. *-------------- divide unsigned long (remainder)
  1676.  
  1677. _Divul.r020:    move.l    d1,-(sp)        * 020 optimised version
  1678.         divul.l    d1,d1:d0
  1679.         move.l    d1,d0
  1680.         move.l    (sp)+,d1
  1681. ;        tst.l    d0
  1682.         rts
  1683. _Divul.r020_end:
  1684.  
  1685.         cnop    0,4
  1686. divides:    dc.w    $2F01
  1687.         dc.w    $3F04
  1688.         dc.w    $9844
  1689.         dc.w    $4A80
  1690.         dc.w    $6A04
  1691.         dc.w    $4480
  1692.         dc.w    $5244
  1693.         dc.w    $4A81
  1694.         dc.w    $6A06
  1695.         dc.w    $4481
  1696.         dc.w    $0A44
  1697.         dc.w    $0001
  1698.         dc.w    $613E
  1699.         dc.w    $4A44
  1700.         dc.w    $6702
  1701.         dc.w    $4480
  1702.         dc.w    $381F
  1703.         dc.w    $221F
  1704.         dc.w    $4A80
  1705.         dc.w    $4E75
  1706.         dc.w    $2F01
  1707.         dc.w    $3F04
  1708.         dc.w    $9844
  1709.         dc.w    $4A80
  1710.         dc.w    $6A04
  1711.         dc.w    $4480
  1712.         dc.w    $5244
  1713.         dc.w    $4A81
  1714.         dc.w    $6A02
  1715.         dc.w    $4481
  1716.         dc.w    $611A
  1717.         dc.w    $2001
  1718.         dc.w    $60D8
  1719.         dc.w    $2F01
  1720.         dc.w    $6112
  1721.         dc.w    $2001
  1722.         dc.w    $221F
  1723.         dc.w    $4A80
  1724.         dc.w    $4E75
  1725.         dc.w    $2F01
  1726.         dc.w    $6106
  1727.         dc.w    $221F
  1728.         dc.w    $4A80
  1729.         dc.w    $4E75
  1730.         dc.w    $4841
  1731.         dc.w    $4A41
  1732.         dc.w    $661C
  1733.         dc.w    $4841
  1734.         dc.w    $3F01
  1735.         dc.w    $3F00
  1736.         dc.w    $4240
  1737.         dc.w    $4840
  1738.         dc.w    $80C1
  1739.         dc.w    $2200
  1740.         dc.w    $4840
  1741.         dc.w    $321F
  1742.         dc.w    $82DF
  1743.         dc.w    $3001
  1744.         dc.w    $4241
  1745.         dc.w    $4841
  1746.         dc.w    $4E75
  1747.         dc.w    $4841
  1748.         dc.w    $3F02
  1749.         dc.w    $2F03
  1750.         dc.w    $2601
  1751.         dc.w    $2200
  1752.         dc.w    $4241
  1753.         dc.w    $4841
  1754.         dc.w    $4840
  1755.         dc.w    $4240
  1756.         dc.w    $343C
  1757.         dc.w    $000F
  1758.         dc.w    $D080
  1759.         dc.w    $D381
  1760.         dc.w    $B681
  1761.         dc.w    $6204
  1762.         dc.w    $9283
  1763.         dc.w    $5240
  1764.         dc.w    $51CA
  1765.         dc.w    $FFF2
  1766.         dc.w    $261F
  1767.         dc.w    $341F
  1768.         dc.w    $4E75
  1769. divides_end:
  1770.  
  1771.  
  1772.  
  1773.  
  1774.  
  1775. divides2:    dc    $2F02,$2401,$2200,$0C82,$0000,$FFFF,$6E1C,$3C41
  1776.         dc    $4241,$4841,$82C2,$2001,$4841,$300E,$80C2,$3200
  1777.         dc    $4240,$4840,$C141,$241F,$4E75,$2001,$4240,$4840
  1778.         dc    $4841,$4241,$2C42,$740F,$D281,$D180,$BDC0,$6E04
  1779.         dc    $908E,$5241,$51CA,$FFF2,$C141,$241F,$4E75,$3F03
  1780.         dc    $487A,$0016,$2F02,$2401,$5BC3,$6A02,$4482,$2200
  1781.         dc    $6AA4,$4481,$4603,$609E,$4A03,$6702,$4480,$361F,$4E75
  1782. divides2_end:
  1783.         
  1784. Divul.rem:    divul.l    d1,d1:d0        ; 020 optimised version
  1785.         rts
  1786. Divul.rem_end
  1787.  
  1788. Divsl.neg:    divsl.l    d1,d1:d0        ; 020 optimised version
  1789.         neg.l    d1
  1790.         rts
  1791. Divsl.neg_end:
  1792.  
  1793.  
  1794.  
  1795. *******************************************************************************
  1796. * Long Multiplication (SIGNED & REMAINDER)
  1797. *
  1798. * GENERIC COMPILER VERSION 3
  1799. * --------------------------
  1800.  
  1801. Mul3_020    muls.l    d1,d1:d0
  1802.         rts
  1803. Mul3_020_End
  1804.  
  1805.         
  1806. Mul3:
  1807. _LongMul1    movem.l    d2-d4,-(sp)
  1808.         move.l    d0,d2
  1809.         move.l    d0,d3
  1810.         swap    d3
  1811.         move.l    d1,d4
  1812.         swap    d4
  1813.         mulu    d1,d0
  1814.         mulu    d3,d1
  1815.         mulu    d4,d2
  1816.         mulu    d4,d3
  1817.         swap    d0
  1818.         add.w    d1,d0
  1819.         moveq    #0,d4
  1820.         addx.l    d4,d4
  1821.         add.w    d2,d0
  1822.         addx.l    d4,d3
  1823.         swap    d0
  1824.         clr.w    d1
  1825.         swap    d1
  1826.         clr.w    d2
  1827.         swap    d2
  1828.         add.l    d2,d1
  1829.         add.l    d3,d1
  1830.         beq.b    lskip
  1831.         ori.b    #2,ccr
  1832. lskip:        movem.l    (sp)+,d2-d4
  1833.         rts
  1834.  
  1835. _LongMul2:    movem.l    d2/d3,-(sp)
  1836.         move.l    d0,d2
  1837.         move.l    d1,d3
  1838.         bsr.b    _LongMul1
  1839.         tst.l    d2
  1840.         bpl.b    lm1
  1841.         sub.l    d3,d1
  1842. lm1:        tst.l    d3
  1843.         bpl.b    lm2
  1844.         sub.l    d2,d1
  1845. lm2:        tst.l    d0
  1846.         bpl.b    lm3
  1847.         not.l    d1
  1848. lm3:        tst.l    d1
  1849.         beq.b    lm4
  1850.         ori.b    #2,ccr
  1851. lm4:        movem.l    (sp)+,d2/d3
  1852.         rts
  1853. Mul3_End
  1854.  
  1855.  
  1856.         cnop    0,4
  1857. *-------------- divide signed long (remainder)
  1858.  
  1859. div        divsl.l    d1,d1:d0
  1860.         exg.l    d0,d1    
  1861.         rts
  1862. div_end
  1863.  
  1864.         cnop    0,4        
  1865. divides3:
  1866.     dc.w    $48E7
  1867.     dc.w    $3000
  1868.     dc.w    $7400
  1869.     dc.w    $B2BC
  1870.     dc.w    $0000
  1871.     dc.w    $FFFF
  1872.     dc.w    $621C
  1873.     dc.w    $80C1
  1874.     dc.w    $6810
  1875.     dc.w    $3600
  1876.     dc.w    $4240
  1877.     dc.w    $4840
  1878.     dc.w    $80C1
  1879.     dc.w    $3400
  1880.     dc.w    $4842
  1881.     dc.w    $3003
  1882.     dc.w    $80C1
  1883.     dc.w    $3400
  1884.     dc.w    $4240
  1885.     dc.w    $4840
  1886.     dc.w    $601A
  1887.     dc.w    $3400
  1888.     dc.w    $4842
  1889.     dc.w    $4240
  1890.     dc.w    $4840
  1891.     dc.w    $760F
  1892.     dc.w    $E38A
  1893.     dc.w    $E390
  1894.     dc.w    $B081
  1895.     dc.w    $6504
  1896.     dc.w    $9081
  1897.     dc.w    $5242
  1898.     dc.w    $51CB
  1899.     dc.w    $FFF2
  1900.     dc.w    $2202
  1901.     dc.w    $4CDF
  1902.     dc.w    12
  1903.     dc.w    $4E75
  1904. divides3_end:
  1905.  
  1906.  
  1907. *-------------- manx_c divide/modu
  1908.  
  1909. div4        divul.l    d1,d1:d0
  1910.         rts
  1911. div4_end
  1912.  
  1913. divides4:    dc.w    $48E7
  1914.         dc.w    $3000
  1915.         dc.w    $4841
  1916.         dc.w    $4A41
  1917.         dc.w    $6620
  1918.         dc.w    $4841
  1919.         dc.w    $3601
  1920.         dc.w    $3400
  1921.         dc.w    $4240
  1922.         dc.w    $4840
  1923.         dc.w    $80C3
  1924.         dc.w    $2200
  1925.         dc.w    $4840
  1926.         dc.w    $3202
  1927.         dc.w    $82C3
  1928.         dc.w    $3001
  1929.         dc.w    $4241
  1930.         dc.w    $4841
  1931.         dc.w    $4CDF
  1932.         dc.w    12
  1933.         dc.w    $4E75
  1934. divides4_end:
  1935.  
  1936.  
  1937. manxmulu020:    mulu.l    d1,d0
  1938.         rts
  1939. manxmulu020_end:
  1940.  
  1941. manxmulu:    movem.l    d1-d3,-(sp)
  1942.         move.w    d1,d2
  1943.         mulu    d0,d2
  1944.         move.l    d1,d3
  1945.         swap    d3
  1946.         mulu    d0,d3
  1947.         swap    d3
  1948.         clr.w    d3
  1949.         add.l    d3,d2
  1950.         swap    d0
  1951.         mulu    d1,d0
  1952.         swap    d0
  1953.         clr.w    d0
  1954.         add.l    d2,d0
  1955.         movem.l    (sp)+,d1-d3
  1956.         rts
  1957. manxmulu_end:
  1958.  
  1959.  
  1960.  
  1961.  
  1962. manxdivs020:    divs.l    d1,d0
  1963.         rts
  1964. manxdivs020_end:
  1965.  
  1966. manxdivs:    dc.w    $48E7
  1967.         dc.w    $4800
  1968.         dc.w    $4284
  1969.         dc.w    $4A80
  1970.         dc.w    $6A04
  1971.         dc.w    $4480
  1972.         dc.w    $5244
  1973.         dc.w    $4A81
  1974.         dc.w    $6A06
  1975.         dc.w    $4481
  1976.         dc.w    $0A44
  1977.         dc.w    $0001
  1978.         dc.w    $613E
  1979.         dc.w    $4A44
  1980.         dc.w    $6702
  1981.         dc.w    $4480
  1982.         dc.w    $4CDF
  1983.         dc.w    $0012
  1984.         dc.w    $4A80
  1985.         dc.w    $4E75
  1986. manxdivs_end:
  1987.  
  1988.  
  1989.  
  1990.  
  1991. manxdivneg020:    move.l    d1,-(sp)
  1992.         divsl.l    d1,d1:d0
  1993.         exg    d0,d1
  1994.         move.l    (sp)+,d1
  1995.         tst.l    d0
  1996.         rts
  1997. manxdivneg020_end:
  1998.  
  1999. manxdivneg:    dc.w    $48E7
  2000.         dc.w    $4800
  2001.         dc.w    $4284
  2002.         dc.w    $4A80
  2003.         dc.w    $6A04
  2004.         dc.w    $4480
  2005.         dc.w    $5244
  2006.         dc.w    $4A81
  2007.         dc.w    $6A02
  2008.         dc.w    $4481
  2009.         dc.w    $611A
  2010.         dc.w    $2001
  2011.         dc.w    $60D8
  2012.         dc.w    $2F01
  2013.         dc.w    $6112
  2014.         dc.w    $2001
  2015.         dc.w    $221F
  2016.         dc.w    $4A80
  2017.         dc.w    $4E75
  2018.         dc.w    $2F01
  2019.         dc.w    $6106
  2020.         dc.w    $221F
  2021.         dc.w    $4A80
  2022.         dc.w    $4E75
  2023. manxdivneg_end:
  2024.  
  2025.  
  2026. div5
  2027. dicediv020:    divs.l    d1,d0            ; 020 optimised version
  2028.         rts
  2029. dicediv020_end
  2030. div5_end
  2031.  
  2032. divides5
  2033. dicediv:    dc.w    $4A81
  2034.         dc.w    $6B08
  2035.         dc.w    $4A80
  2036.         dc.w    $6B12
  2037.         dc.w    $6000
  2038.         dc.w    $22
  2039.         dc.w    $4481
  2040.         dc.w    $4A80
  2041.         dc.w    $6B12
  2042.         dc.w    $6100
  2043.         dc.w    $18
  2044.         dc.w    $4480
  2045.         dc.w    $4E75
  2046.         dc.w    $4480
  2047.         dc.w    $6100
  2048.         dc.w    14
  2049.         dc.w    $4480
  2050.         dc.w    $4E75
  2051.         dc.w    $4480
  2052.         dc.w    $6000
  2053.         dc.w    4
  2054.         dc.w    $4E71
  2055.         dc.w    $4A81
  2056.         dc.w    $671E
  2057.         dc.w    $4841
  2058.         dc.w    $4A41
  2059.         dc.w    $6642
  2060.         dc.w    $2F02
  2061.         dc.w    $4841
  2062.         dc.w    $2400
  2063.         dc.w    $84C1
  2064.         dc.w    $6914
  2065.         dc.w    $2202
  2066.         dc.w    $4241
  2067.         dc.w    $4841
  2068.         dc.w    $7000
  2069.         dc.w    $3002
  2070.         dc.w    $241F
  2071.         dc.w    $4E75
  2072.         dc.w    $2200
  2073.         dc.w    $70FF
  2074.         dc.w    $4E75
  2075.         dc.w    $2F03
  2076.         dc.w    $2400
  2077.         dc.w    $4242
  2078.         dc.w    $4842
  2079.         dc.w    $84C1
  2080.         dc.w    $3602
  2081.         dc.w    $4843
  2082.         dc.w    $4243
  2083.         dc.w    $3400
  2084.         dc.w    $84C1
  2085.         dc.w    $3602
  2086.         dc.w    $2003
  2087.         dc.w    $4242
  2088.         dc.w    $4842
  2089.         dc.w    $2202
  2090.         dc.w    $261F
  2091.         dc.w    $241F
  2092.         dc.w    $4E75
  2093.         dc.w    $48E7
  2094.         dc.w    $3800
  2095.         dc.w    $2400
  2096.         dc.w    $4242
  2097.         dc.w    $4842
  2098.         dc.w    $84C1
  2099.         dc.w    $3602
  2100.         dc.w    $7400
  2101.         dc.w    $3403
  2102.         dc.w    $C6C1
  2103.         dc.w    $4841
  2104.         dc.w    $3802
  2105.         dc.w    $C8C1
  2106.         dc.w    $4843
  2107.         dc.w    $D684
  2108.         dc.w    $9083
  2109.         dc.w    $6B0A
  2110.         dc.w    $2200
  2111.         dc.w    $2002
  2112.         dc.w    $4CDF
  2113.         dc.w    $1C
  2114.         dc.w    $4E75
  2115.         dc.w    $5382
  2116.         dc.w    $D081
  2117.         dc.w    $6BFA
  2118.         dc.w    $2200
  2119.         dc.w    $2002
  2120.         dc.w    $4CDF
  2121.         dc.w    $1C
  2122.         dc.w    $4E75
  2123. dicediv_end:    
  2124. divides5_end
  2125.  
  2126.         section    bssmem,bss
  2127.  
  2128. patched        ds.w    1        
  2129. Array        ds.l    6
  2130. Buffer        ds.b    128
  2131. filename    ds.b    34
  2132. finalname:    ds.b    256
  2133. volpath:    ds.b    128
  2134. hashbuff    ds.b    65536*2
  2135.